unit uFrmGeraCodBarra;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, uCalculo, Menus;

type
  TFrmGeradorCodBarra = class(TForm)
    btnGerar: TButton;
    imgCodBarra: TImage;
    edProduto: TEdit;
    MainMenu1: TMainMenu;
    Cadastro1: TMenuItem;
    Produto1: TMenuItem;
    procedure btnGerarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Produto1Click(Sender: TObject);
  private
    { Private declarations }
    Calculo : TCalculo;

  public
    { Public declarations }
  end;

var
  FrmGeradorCodBarra: TFrmGeradorCodBarra;

implementation

uses uFrmProduto;

{$R *.dfm}


procedure TFrmGeradorCodBarra.btnGerarClick(Sender: TObject);
begin
  Calculo.GeraBarrasEAN13('7898486472373', imgCodBarra.Canvas)
end;


procedure TFrmGeradorCodBarra.FormCreate(Sender: TObject);
begin
  Calculo := TCalculo.Create;
end;

procedure TFrmGeradorCodBarra.FormDestroy(Sender: TObject);
begin
  if Assigned(Calculo) then
    FreeAndNil(Calculo);
end;

procedure TFrmGeradorCodBarra.Produto1Click(Sender: TObject);
begin
   try
     Application.CreateForm(TfrmProduto,frmProduto);
     frmProduto.ShowModal;

   finally
     if assigned(frmProduto) then
      FreeAndNil(frmProduto);
   end;
end;

end.
